home *** CD-ROM | disk | FTP | other *** search
/ PC World Interactive 7 / PC World Interactive 7.iso / program / pasprog.EXE / TABELA.TXT < prev    next >
Encoding:
Text File  |  1980-01-10  |  1.7 KB  |  28 lines
  1.   ┌──────────────────────────────────────────────────────────────────────────┐
  2.   │┌────────────────────────────────────────────────────────────────────────┐│
  3.   ││                                                                        ││
  4.   ││                               TABELA                                   ││
  5.   ││                                                                        ││
  6.   │└────────────────────────────────────────────────────────────────────────┘│
  7.   │ PS 31 · ₧ubat'96                                      Murat Dicle        │
  8.   └──────────────────────────────────────────────────────────────────────────┘
  9.  
  10.  Bu program çok basit omasìna raºmen sizlere PASCAL ortamìnda bir TST
  11.  programìnìn nasìl yapìlacaºìnì göstermektedir. Bu program EXE hale
  12.  dönüƒtürülüp DOS komut satìrìnda çalìƒtìrìldìºìnda ekranìn saº üst köƒesinde
  13.  "Merhaba" yazìsìnìn hiç gitmediºini göreceksiniz. CLS komutunu kullansanìz
  14.  dahi yazì ekrandan gitmez.
  15.  
  16.  Bu programda bir HELLO procedure'ü yaptìk. Bu procedure saat interrupt'ìna
  17.  baºlandìºìndan saniyede 18 defa bu procedure aktif hale gelecektir.
  18.  Dolayìsìyle yazì hep ekranda kalacaktìr. CLS komutunu kullansanìz bile
  19.  "Merhaba" yazìsì ekrandan kalkmayacaktìr.
  20.  
  21.  Fakat "HELLO" procedure'üne her girildiºinde ekrana "Merhaba" yazìlmadan önce
  22.  ekranda yanìp sönen kursörün pozisyonu X ve Y deºiƒkenlerine saklanmaktadìr.
  23.  Ardìndan "Merhaba" yazìsì ekranìn saº üst köƒesine yazìlmakta ve daha sonra
  24.  kursör X ve Y koordinatlarìna konumlandìrìlmaktadìr.
  25.  
  26.  HELLO procedure'ün baƒìnda ve sonunda {$F+} ve {$F-} ibareleri vardìr.
  27.  Bunlarìn anlamì uzaktan çaºìrma iƒleminin bu procedure üzerinde
  28.  uygulanabileceºini göstermektedir.